unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, DB, ADODB, Menus;

type
  TForm3 = class(TForm)
    // ... (组件声明)
  private
    { Private declarations }
  public
    { Public declarations }
    vg_czd_name: string;
    vg_dxid_mn: string;
    vg_yh_name: string;
    vg_jhr: string;
    vg_pass: Integer;
    vg_yh_bh: string;
    vg_str_dxhmn: TStrings;
    is_qy: Boolean;
    procedure showdxg1(czd_name: string);
  end;

var
  Form3: TForm3;

implementation

uses Unit1, Unit4, Unit5, Unit10;

{$R *.dfm}

// ... (Unit3的实现代码)